home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr28 / par300.zip / EXAMPL08.POM < prev    next >
Text File  |  1995-04-07  |  1KB  |  54 lines
  1. ;
  2. ;   NOTE:  A quick-reference summary of POM commands appears in EXAMPL04.POM
  3. ;
  4. ;-------------------------------------------------------------------------------
  5. ;
  6. ;   This file is similar to EXAMPL03.POM, but it uses the LOOKUP command.
  7. ;
  8. ;-------------------------------------------------------------------------------
  9. ;
  10. MINLEN   "1"
  11. ;
  12. ;   Remove everything before and after the headings
  13. ;
  14. IF       $FLINE[  1  11] = "-----------" THEN HdrCntr = HdrCntr+
  15. IGNORE   HdrCntr         = ""
  16. IGNORE   HdrCntr         = "3"
  17. IGNORE   HdrCntr         = "4"
  18. IGNORE   $FLINE[ 34  41] = "PHONUMBR"
  19. IGNORE   $FLINE[  1  11] = "-----------"
  20. IGNORE   Finished        = "Y"
  21. IF       HdrCntr         = "4" THEN Finished = "Y"
  22. ;
  23. ;   Set page headings, with a top margin of one line
  24. ;
  25. PAGELEN  "55" "Y"
  26. OUTHDG   ""
  27. OUTHDG   "-------------------------------- -------- -------------"
  28. OUTHDG   "NAME OF BBS                      PHONENUM TYPE OF MODEM"
  29. OUTHDG   "-------------------------------- -------- -------------"
  30. ;
  31. ;   Get modem type
  32. ;
  33. SET      Type = $FLINE[43 44]
  34. ;
  35. ;   Ignore the slow ones
  36. ;
  37. IGNORE   Type = "30"
  38. IGNORE   Type = "12"
  39. ;
  40. ;   Set up look-up file
  41. ;
  42. LOOKFILE "EXAMPL08.TBL"
  43. LOOKSPEC "Y" "Y" "Y"
  44. LOOKCOLS "7" "8" "20" "255"
  45. ;
  46. ;   Look up modem speed description
  47. ;
  48. LOOKUP   Speed = Type
  49. ;
  50. ;   Output
  51. ;
  52. SET      Data = $FLINE[1 41]
  53. OUTEND   |{Data} {Speed}
  54.